home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
fllab200.zip
/
INST32
/
CLRCYCED.DFM
/
CLRCYCED.txt
Wrap
Text File
|
1995-12-12
|
11KB
|
284 lines
object ColorCyclingEditDialog: TColorCyclingEditDialog
Left = 99
Top = 95
Width = 383
Height = 301
Caption = 'Color Cycling'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
TextHeight = 13
Scaled = False
object AddSpeedButton: TSpeedButton
Left = 230
Top = 2
Width = 25
Height = 25
Hint = 'New color'
Glyph.Data = {
5E010000424D5E01000000000000760000002800000020000000100000000100
040002000000E800000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00205500000655
04000C5504FF065500000655000499900C550004777F06550000065500049990
0C550004777F065500000655000499900C550004777F06550000065500049990
0C550004777F06550000025504000004999004000004055504FF0004777F04FF
02F5000002590C99000405570C7702F5000002590C99000405570C7702F50000
02590C99000455570C77025500000655000499950C5500047775065500000655
000499950C5500047775065500000655000499950C5500047775065500000655
000499950C5500047775065500000655000499950C5500047775065500002055
0001}
NumGlyphs = 2
OnClick = AddSpeedButtonClick
end
object DeleteSpeedButton: TSpeedButton
Left = 230
Top = 26
Width = 25
Height = 25
Hint = 'Delete color'
Glyph.Data = {
DE000000424DDE00000000000000760000002800000020000000100000000100
0400020000006800000000000000000000001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00205500002055
00002055000020550000205500002055000002550C00000405550CFF02F50000
02590C99000405570C7702F5000002590C99000405570C7702F5000002590C99
000455570C770255000020550000205500002055000020550000205500002055
0001}
NumGlyphs = 2
OnClick = DeleteSpeedButtonClick
end
object UpSpeedButton: TSpeedButton
Left = 230
Top = 88
Width = 25
Height = 25
Hint = 'Move color up'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
3333333333777F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
3333333777737777F333333099999990333333373F3333373333333309999903
333333337F33337F33333333099999033333333373F333733333333330999033
3333333337F337F3333333333099903333333333373F37333333333333090333
33333333337F7F33333333333309033333333333337373333333333333303333
333333333337F3333333333333303333333333333337333333330000}
NumGlyphs = 2
OnClick = UpSpeedButtonClick
end
object DownSpeedButton: TSpeedButton
Left = 230
Top = 112
Width = 25
Height = 25
Hint = 'Move color down'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
333333333337F33333333333333033333333333333373F333333333333090333
33333333337F7F33333333333309033333333333337373F33333333330999033
3333333337F337F33333333330999033333333333733373F3333333309999903
333333337F33337F33333333099999033333333373333373F333333099999990
33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F33333333333309033333333333337F7F333333333333090333
33333333337F7F333333333333000333333333333377733333330000}
NumGlyphs = 2
OnClick = DownSpeedButtonClick
end
object EditSpeedButton: TSpeedButton
Left = 230
Top = 50
Width = 25
Height = 25
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555555555555555555555555555555555555555FF55555555555559055555
55555555577FF5555555555599905555555555557777F5555555555599905555
555555557777FF5555555559999905555555555777777F555555559999990555
5555557777777FF5555557990599905555555777757777F55555790555599055
55557775555777FF5555555555599905555555555557777F5555555555559905
555555555555777FF5555555555559905555555555555777FF55555555555579
05555555555555777FF5555555555557905555555555555777FF555555555555
59905555555555555777555555555555555555555555555555550000}
NumGlyphs = 2
OnClick = EditSpeedButtonClick
end
object RotateBackSpeedButton: TSpeedButton
Left = 230
Top = 136
Width = 25
Height = 25
Hint = 'Rotate list backwards'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333FFF3333333333333707333333333333F777F3333333333370
9033333333F33F7737F33333373337090733333337F3F7737733333330037090
73333333377F7737733333333090090733333333373773773333333309999073
333333337F333773333333330999903333333333733337F33333333099999903
33333337F3333F7FF33333309999900733333337333FF7773333330999900333
3333337F3FF7733333333309900333333333337FF77333333333309003333333
333337F773333333333330033333333333333773333333333333333333333333
33333333333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = RotateBackSpeedButtonClick
end
object RotateFwdSpeedButton: TSpeedButton
Left = 230
Top = 160
Width = 25
Height = 25
Hint = 'Rotate list forwards'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333333333333FFF3333333333333
00333333333333FF77F3333333333300903333333333FF773733333333330099
0333333333FF77337F3333333300999903333333FF7733337333333700999990
3333333777333337F3333333099999903333333373F333373333333330999903
33333333F7F3337F33333333709999033333333F773FF3733333333709009033
333333F7737737F3333333709073003333333F77377377F33333370907333733
33333773773337333333309073333333333337F7733333333333370733333333
33333777333333333333333333333333333333333333333333330000}
NumGlyphs = 2
OnClick = RotateFwdSpeedButtonClick
end
object ColorListBox: TListBox
Left = 5
Top = 2
Width = 225
Height = 265
ItemHeight = 16
Style = lbOwnerDrawFixed
TabOrder = 0
OnDrawItem = ColorListBoxDrawItem
OnKeyPress = ColorListBoxKeyPress
end
object OKBtn: TBitBtn
Left = 280
Top = 8
Width = 89
Height = 33
TabOrder = 1
OnClick = OKBtnClick
Kind = bkOK
end
object CancelBtn: TBitBtn
Left = 280
Top = 56
Width = 89
Height = 33
TabOrder = 2
Kind = bkCancel
end
object LoadBtn: TBitBtn
Left = 280
Top = 104
Width = 89
Height = 33
Caption = '&Load'
TabOrder = 3
OnClick = LoadBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F